Hệ thống quản lý thanh toán POS nhà hàng
1 Imports System.Data.OleDb
2 Public Class frmLogin
3 Dim frm As New frmMainMenu
4 Declare Function Wow64DisableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
5 Declare Function Wow64EnableWow64FsRedirection Lib "kernel32" (ByRef oldvalue As Long) As Boolean
6 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click, Button1.Click
7 If Len(Trim(UserID.Text)) = 0 Then
8 MessageBox.Show("Please enter user id", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
9 UserID.Focus()
10 Exit Sub
11 End If
12 If Len(Trim(Password.Text)) = 0 Then
13 MessageBox.Show("Please enter password", "", MessageBoxButtons.OK, MessageBoxIcon.Warning)
14 Password.Focus()
15 Exit Sub
16 End If
17 Try
18 con = New OleDbConnection(cs)
19 con.Open()
20 cmd = con.CreateCommand()
21 cmd.CommandText = "SELECT RTRIM(UserID),RTRIM([Password]) FROM Registration where UserID = @d1 and [Password]=@d2 and Active='Yes'"
22 cmd.Parameters.AddWithValue("@d1", UserID.Text)
23 cmd.Parameters.AddWithValue("@d2", Encrypt(Password.Text))
24 rdr = cmd.ExecuteReader()
25 If rdr.Read() Then
26 If Encrypt(Password.Text).Trim = rdr.GetValue(1).trim Then
27 con = New OleDbConnection(cs)
28 con.Open()
29 cmd = con.CreateCommand()
30 cmd.CommandText = "SELECT usertype FROM Registration where UserID=@d3 and [Password]=@d4"
31 cmd.Parameters.AddWithValue("@d3", UserID.Text)
32 cmd.Parameters.AddWithValue("@d4", Encrypt(Password.Text))
33 rdr = cmd.ExecuteReader()
34 If rdr.Read() Then
35 UserType.Text = rdr.GetValue(0).ToString.Trim
36 End If
37 If (rdr IsNot Nothing) Then
38 rdr.Close()
39 End If
40 If con.State = ConnectionState.Open Then
41 con.Close()
42 End If
43 If UserType.Text = "Cashier" Then
44 Dim st As String = "Successfully logged in"
45 LogFunc(UserID.Text, st)
46 Me.Hide()
47 frmMainMenu.MasterEntryToolStripMenuItem.Enabled = False
48 frmMainMenu.AdministrationToolStripMenuItem.Enabled = False
49 frmMainMenu.ReportsToolStripMenuItem.Enabled = False
50 frmMainMenu.lblUser.Text = UserID.Text
51 frmMainMenu.lblUserType.Text = UserType.Text
52 frmMainMenu.Show()
53 End If
54
55 If (UserType.Text = "Admin") Then
56 Dim st As String = "Successfully logged in"
57 LogFunc(UserID.Text, st)
58 Me.Hide()
59 frmMainMenu.MasterEntryToolStripMenuItem.Enabled = True
60 frmMainMenu.AdministrationToolStripMenuItem.Enabled = True
61 frmMainMenu.ReportsToolStripMenuItem.Enabled = True
62 frmMainMenu.lblUser.Text = UserID.Text
63 frmMainMenu.lblUserType.Text = UserType.Text
64 frmMainMenu.Show()
65 End If
66
67 End If
68 Else
69 MsgBox("Login is Failed...Try again !", MsgBoxStyle.Critical, "Login Denied")
70 UserID.Text = ""
71 Password.Text = ""
72 UserID.Focus()
73 End If
74 con.Close()
75 Catch ex As Exception
76 MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
77 End Try
78 End Sub
79
80 Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click, Button2.Click
81 End
82 End Sub
83
84 Private Sub LoginForm1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
85 Panel1.Location = New Point(Me.ClientSize.Width / 2 - Panel1.Size.Width / 2, Me.ClientSize.Height / 2 - Panel1.Size.Height / 2)
86 Panel1.Anchor = AnchorStyles.None
87 End Sub
88
89 Private Sub frmLogin_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
90 End
91 End Sub
92
93 Private Sub btnChangePassword_Click(sender As System.Object, e As System.EventArgs) Handles btnChangePassword.Click
94 Me.Hide()
95 frmChangePassword.Show()
96 frmChangePassword.UserID.Text = ""
97 frmChangePassword.OldPassword.Text = ""
98 frmChangePassword.NewPassword.Text = ""
99 frmChangePassword.ConfirmPassword.Text = ""
100 frmChangePassword.UserID.Focus()
101 End Sub
102
103 Private Sub btnKeyboard_Click(sender As System.Object, e As System.EventArgs) Handles btnKeyboard.Click
104 Dim old As Long
105 If Environment.Is64BitOperatingSystem Then
106 If Wow64DisableWow64FsRedirection(old) Then
107 Process.Start("osk.exe")
108 Wow64EnableWow64FsRedirection(old)
109 End If
110 Else
111 Process.Start("osk.exe")
112 End If
113 End Sub
114
115 End Class
